home *** CD-ROM | disk | FTP | other *** search
/ Ian & Stuart's Australian Mac: Not for Sale / Another.not.for.sale (Australia).iso / fade into you / getting there / WWW / MacHTTP Extras / Script Tools / Examples / Choose Folder Example < prev    next >
Text File  |  1993-06-17  |  368b  |  11 lines
  1. set folderOK to true
  2. try
  3.     set archiveFolder to choose folder with prompt "Please select an Archive folder:"
  4. on error errText number errNum
  5.     display dialog "Choose folder canceled" buttons {"OK"} default button {"OK"}
  6.     set folderOK to false
  7. end try
  8.  
  9. if folderOK then
  10.     display dialog "Selected folder: “" & archiveFolder & "”" buttons {"OK"} default button {"OK"}
  11. end if